home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / _okuyuki.bas < prev    next >
BASIC Source File  |  1997-06-06  |  973b  |  50 lines
  1.  
  2.  /* 奥行きつきスクロール（なりかけ）
  3.  /*          31kHz化  TNB
  4.  
  5. int x,y,s,x0=200/8
  6. dim d(200,100)
  7. screen 0,3,1,1
  8. sp_init():sp_clr(0)
  9. spfile_def("title.sp",1)
  10. palfile_def("title.pal",1)
  11. sp_disp(1):sp_on(0,127)
  12. bg_set(0,0,1)
  13.  
  14.  /* タイトル描き
  15. for y=0 to 5:for x=0 to 6
  16. bg_put(0,x0+x*2  ,5+y*2  ,&h104+x*4+y*28)
  17. bg_put(0,x0+x*2  ,5+y*2+1,&h105+x*4+y*28)
  18. bg_put(0,x0+x*2+1,5+y*2  ,&h106+x*4+y*28)
  19. bg_put(0,x0+x*2+1,5+y*2+1,&h107+x*4+y*28)
  20. next:next
  21.  
  22.  /* ラスタスクロールデータの作成
  23. print " 準備中"
  24. for x=0 to 200:for y=0 to 100
  25.     d(x,y)=(x-100)*(y/2)/50+100
  26. next:next:beep
  27. cls
  28.  
  29.  /* ラスタスクロールデータのセット
  30. ras_scroll_set(0,d,,,75*2)
  31. ras_home(100,0)
  32. x=100
  33.  
  34.  /* main loop
  35. while 1
  36. s=stick(1)
  37. if x>0   and s=4 then x=x-2
  38. if x<200 and s=6 then x=x+2
  39.  
  40.  /* ラスタスクロールデータのセット
  41.  /* x = page 番号
  42. ras_scroll_stat(1,x,x,0)
  43.  
  44.  /* 高クロック・030 ユーザは適当にウエイトを入れましょう
  45.  /*for s=0 to 500:next
  46. v_disp()
  47.  
  48. endwhile
  49.  
  50.